home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / tspa3555.zip / TSUNTK.INT < prev    next >
Text File  |  1996-09-07  |  2KB  |  57 lines
  1. (*
  2. Timo Salmi UNiT K
  3. A Turbo Pascal unit of MS-DOS 4.0+ specific routines
  4. All rights reserved 26-Aug-92
  5.  
  6. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  7. NON-INSTITUTIONAL purposes, provided it is not changed in any way, and
  8. that a proper attribution is made. For ANY other usage, such as use in a
  9. business enterprise or at a university, contact the author for the terms
  10. of registration.
  11.  
  12. The units are under development. Comments and contacts are solicited. If
  13. you have any feedback about this unit, please do not hesitate to use
  14. electronic mail for communication.
  15.  
  16. The author shall not be liable to the user for any direct, indirect or
  17. consequential loss arising from the use of, or inability to use, any unit,
  18. program or file howsoever caused. No warranty is given that the units and
  19. programs will work under all circumstances.
  20.  
  21. Timo Salmi (email: ts@uwasa.fi WWW: http://uwasa.fi/~ts/)
  22. Professor of Accounting and Business Finance
  23. Faculty of Accounting & Industrial Management
  24. University of Vaasa
  25. P.O. BOX 700, FIN-65101 Vaasa, Finland
  26. *)
  27.  
  28. unit TSUNTK;
  29.  
  30. (* ======================================================================= *)
  31.                           interface
  32. (* ======================================================================= *)
  33.  
  34. uses TSUNTB,    { TSUNTK needs internally the number conversion routines }
  35.      {$IFDEF VER40}
  36.      TSUNT45,
  37.      {$ENDIF}
  38.      Dos;
  39.  
  40. (* Returns from which drive the system was booted, requires MS-DOS 4.0+,
  41.    else returns '.' *)
  42. function BOOTDRFN : char;
  43.  
  44. (* Get disk serial number.  Requires MS-DOS 4.0+.
  45.    Else, or on an error, returns an empty string
  46.    The default drive can be pointed to by using 0 *)
  47. function GETSERFN (drive : char) : string;
  48.  
  49. (* Set disk serial number.  Requires MS-DOS 4.0+.
  50.    Else, or on an error, sets the status. See TSUNTJ.TST for the codes
  51.    For safety allows the operation for drives A and B only *)
  52. procedure SETSER (drive : char; serial : string; var status : integer);
  53.  
  54. (* A special get disk volume label.  Requires MS-DOS 4.0+. *)
  55. function GETVOLFN (drive : char) : string;
  56.  
  57.